home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_5.ZIP / TCONST.ASM < prev   
Assembly Source File  |  1991-02-09  |  1KB  |  69 lines
  1.     .title    Assembler Link Test Constants
  2.  
  3.     .module    tconst
  4.  
  5.     .area    TEST    (ABS,OVR)
  6.  
  7.     bra1    ==    0    ; branching constants
  8.     bra2    ==    0x80
  9.     bra3    ==    0x182
  10.     bra4    ==    0x204
  11.  
  12.     .blkb    0x7E        ;bra1:
  13.     .blkb    0x02
  14.     .blkb    0x7F        ;bra2:
  15.     .blkb    0x02
  16.     .blkb    0x02
  17.     .blkb    0x7F
  18.     .blkb    0x00        ;bra3:
  19.     .blkb    0x02
  20.     .blkb    0x80
  21.     .blkb    0x00        ;bra4:
  22.  
  23.     .globl    bra5,bra6,bra7,bra8
  24.  
  25.                 ; branching labels
  26. bra5:    .blkb    0x7E        ;bra5:
  27.     .blkb    0x02
  28. bra6:    .blkb    0x7F        ;bra6:
  29.     .blkb    0x02
  30.     .blkb    0x02
  31.     .blkb    0x7F
  32. bra7:    .blkb    0x00        ;bra7:
  33.     .blkb    0x02
  34.     .blkb    0x80
  35. bra8:    .blkb    0x00        ;bra8:
  36.  
  37.  
  38.     ; 12-Bit numbers are considered valid if:
  39.     ;   1) the most significant 4 bits of the 16-bit number are zero
  40.     ;   2) the most significant 4 bits of the 16-bit number are all ones
  41.  
  42.     n0FFF    ==    0x0FFF    ;largest positive
  43.     n1000    ==    0x1000    ;+1
  44.  
  45.     nF000    ==    0xF000    ;largest negative
  46.     nEFFF    ==    0xEFFF    ;-1
  47.  
  48.  
  49.     .area    DIRECT    (ABS,OVR)
  50.     .setdp    0,DIRECT
  51.  
  52.     boundary    ==    0x101
  53.  
  54.     minus1    ==    -1    ; paging / indexing constants
  55.     zero    ==    0
  56.     two55    ==    0d255
  57.     two56    ==    0d256
  58.     five11    ==    0d511
  59.     five12    ==    0d512
  60.  
  61.  
  62.     .globl    lzero,ltwo55,ltwo56,lminus1
  63.  
  64. lzero:    .blkb    0x00FF        ; paging labels
  65. ltwo55:    .blkb    0x0001
  66. ltwo56:    .blkb    0xFEFF
  67. lminus1:.blkb    0d0000
  68.  
  69.